Gigarom 1/Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso/FILES/BBS/MUBBS/Nate's Sysop 2.0.cpt/Nate's Sysop 2.0/card_2930.txt

Text File | 1991-11-21 | 13KB | 423 lines

-- card: 2930 from stack: in.0
-- bmap block id: 0
-- flags: 0000
-- background id: 2792
-- name:


-- part 1 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=15 top=309 right=332 bottom=209
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Change WHOLE Folder's TYPE
----- HyperTalk script -----
on mouseUp
  put getpathname() into appname
  if appname = "" then exit to hypercard
  put "This takes a WHOLE FOLDER and changes any file content's TYPE !" & return into card field status
  put "Folders inside this one will NOT be affected" & return after card field status
  put "Path you picked   =" & appname & return after card field status
  put length of appname into i
  repeat until i <= 0
    if char i of appname = ":" then
      put i into x
      put 0 into i
    end if
    subtract 1 from i
  end repeat
  put "" into out
  put 0 into z
  repeat until z = x
    put out & char z of appname into out
    add 1 to z
  end repeat
  put out & ":" into folder
  put "Using folder path =" & folder & return after card field status
  ask "Change TYPE to what?" with "TEXT"
  if it = "" then exit mouseup
  put it into changetype
  answer "Not reversable, are you sure?" with "YES" or "CANCEL"
  if it = "CANCEL" then
    put "A BIG MESS WAS CANCLED, GOOD THING!"  & return after card field status
    exit to hypercard
  end if
  put files(folder,"",0) into temp
  put 1 into i
  -- and show file names

  repeat until line i of temp is empty
    put folder & line i of temp into appname
    get gettype(appname)
    if the number of chars of it = 4 then
      put line i of temp & " TYPE = ”" &it&"” " after card field status
    else
      put line i of temp & " TYPE NOT AVAILABLE " after card field status
    end if
    settype appname,changetype
    if the result ≠ "" then
      put "- NOT CHANGED!!" &return after card field status
    else
      get gettype(appname)
      if the number of chars of it = 4 then
        put " Changed to ”" &it&"” "&return after card field status
      else
        put " TYPE STILL NOT AVAILABLE "&return after card field status
      end if
    end if
    add 1 to i
  end repeat
  put " -- DONE --" & return after card field status
end mouseUp


-- part 2 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=420 top=216 right=239 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ABOUT
----- HyperTalk script -----
on mouseUp
  show card field "info"
  repeat until the mouse is down
  end repeat
  hide card field "info"
end mouseUp



-- part 4 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=8 top=28 right=212 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: status


-- part 5 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=15 top=280 right=303 bottom=209
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Change ONE File's TYPE
----- HyperTalk script -----
on mouseUp
  put getpathname() into appname
  if appname = "" then exit to hypercard
  put "This changes a FILE's TYPE !" & return into card field status
  put "File you picked   =" & appname & return after card field status
  put appname into folder
  ask "Change TYPE to what?" with "TEXT"
  if it = "" then exit mouseup
  put it into changetype
  answer "Not reversable, are you sure?" with "YES" or "CANCEL"
  if it = "CANCEL" then
    put "A BIG MESS WAS CANCLED, GOOD THING!"  & return after card field status
    exit to hypercard
  end if
  put folder into appname
  get gettype(appname)
  if the number of chars of it = 4 then
    put  " TYPE = ”" &it&"” " after card field status
  else
    put  " TYPE NOT AVAILABLE " after card field status
  end if
  settype appname,changetype
  if the result ≠ "" then
    put "- NOT CHANGED!!" &return after card field status
  else
    get gettype(appname)
    if the number of chars of it = 4 then
      put " Changed to ”" &it&"” "&return after card field status
    else
      put " TYPE STILL NOT AVAILABLE "&return after card field status
    end if
  end if
  put " -- DONE --" & return after card field status
end mouseUp


-- part 6 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=15 top=221 right=244 bottom=209
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: LIST a Folder's TYPES
----- HyperTalk script -----
on mouseUp
  put getpathname() into appname
  if appname = "" then exit to hypercard
  put "This shows all files in a folder & the types" & return into card field status
  put "Folders inside this one will NOT be read" & return after card field status
  put "Path you picked   =" & appname & return after card field status
  put length of appname into i
  repeat until i <= 0
    if char i of appname = ":" then
      put i into x
      put 0 into i
    end if
    subtract 1 from i
  end repeat
  put "" into out
  put 0 into z
  repeat until z = x
    put out & char z of appname into out
    add 1 to z
  end repeat
  put out & ":" into folder
  put "Using folder path =" & folder & return after card field status
  put files(folder,"",0) into temp
  put 1 into i
  -- and show file names

  repeat until line i of temp is empty
    put folder & line i of temp into appname
    get gettype(appname)
    if the number of chars of it = 4 then
      put line i of temp & " TYPE = ”" &it&"” "&return after card field status
    else
      put line i of temp & " TYPE NOT AVAILABLE "&return after card field status
    end if
    add 1 to i
  end repeat
  put " -- DONE --" & return after card field status
end mouseUp


-- part 7 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=223 top=309 right=332 bottom=417
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Try to DeMacBinify a FOLDER
----- HyperTalk script -----
on mouseUp
  put getpathname() into appname
  if appname = "" then exit to hypercard
  put "This takes a WHOLE FOLDER and TRIES to MacDebinify every file !" & return into card field status
  put "If a file is converted, it is saved with the extension .CNV" & return after card field status
  put "Folders inside this one will NOT be affected" & return after card field status
  put "Path you picked   =" & appname & return after card field status
  put length of appname into i
  repeat until i <= 0
    if char i of appname = ":" then
      put i into x
      put 0 into i
    end if
    subtract 1 from i
  end repeat
  put "" into out
  put 0 into z
  repeat until z = x
    put out & char z of appname into out
    add 1 to z
  end repeat
  put out & ":" into folder
  put "Using folder path =" & folder & return after card field status
  answer "Not reversable (but doesn't delete anything), are you sure?" with "YES" or "CANCEL"
  if it = "CANCEL" then
    put "CANCLED, GOOD THING!"  & return after card field status
    exit to hypercard
  end if
  put files(folder,"",0) into temp
  put 1 into i
  -- and show file names

  repeat until line i of temp is empty
    put folder & line i of temp into appname
    get deMacBinify(appname,appname & ".CNV")
    put line i of temp & " Result = ”" &it&"” "&return after card field status
    add 1 to i
  end repeat
  put " -- DONE --" & return after card field status
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=222 top=280 right=303 bottom=416
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: DeMacBinify ONE file
----- HyperTalk script -----
on mouseUp
  put getpathname() into appname
  if appname = "" then exit to hypercard
  put "This TRIES to MacDebinify a file !" & return into card field status
  put "If the file is converted, it is saved with the extension .CNV" & return after card field status
  put "File you picked   =" & appname & return after card field status
  answer "Not reversable (but doesn't delete anything), are you sure?" with "YES" or "CANCEL"
  if it = "CANCEL" then
    put "CANCLED, GOOD THING!"  & return after card field status
    exit to hypercard
  end if
  get deMacBinify(appname,appname & ".CNV")
  put " Result = ”" &it&"” "&return after card field status
  put " -- DONE --" & return after card field status
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=220 top=219 right=242 bottom=414
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: MacBinify ONE file
----- HyperTalk script -----
on mouseUp
  put getpathname() into appname
  if appname = "" then exit to hypercard
  put "This TRIES to MacBinify a file !" & return into card field status
  put "If the file is converted, it is saved with the extension .CNV" & return after card field status
  put "File you picked   =" & appname & return after card field status
  answer "Not reversable (but doesn't delete anything), are you sure?" with "YES" or "CANCEL"
  if it = "CANCEL" then
    put "CANCLED, GOOD THING!"  & return after card field status
    exit to hypercard
  end if
  macBinify appname,appname & ".CNV"
  put " Result = ”" &it&"” "&return after card field status
  put " -- DONE --" & return after card field status
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=221 top=249 right=272 bottom=415
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Try to MacBinify a FOLDER
----- HyperTalk script -----
on mouseUp
  put getpathname() into appname
  if appname = "" then exit to hypercard
  put "This takes a WHOLE FOLDER and TRIES to MacBinify every file !" & return into card field status
  put "If a file is converted, it is saved with the extension .CNV" & return after card field status
  put "Folders inside this one will NOT be affected" & return after card field status
  put "Path you picked   =" & appname & return after card field status
  put length of appname into i
  repeat until i <= 0
    if char i of appname = ":" then
      put i into x
      put 0 into i
    end if
    subtract 1 from i
  end repeat
  put "" into out
  put 0 into z
  repeat until z = x
    put out & char z of appname into out
    add 1 to z
  end repeat
  put out & ":" into folder
  put "Using folder path =" & folder & return after card field status
  answer "Not reversable (but doesn't delete anything), are you sure?" with "YES" or "CANCEL"
  if it = "CANCEL" then
    put "CANCLED, GOOD THING!"  & return after card field status
    exit to hypercard
  end if
  put files(folder,"",0) into temp
  put 1 into i
  -- and show file names

  repeat until line i of temp is empty
    put folder & line i of temp into appname
    macBinify appname,appname & ".CNV"
    put line i of temp & " Result = ”" &it&"” "&return after card field status
    add 1 to i
  end repeat
  put " -- DONE --" & return after card field status
end mouseUp



-- part 3 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=57 top=52 right=323 bottom=469
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: info


-- part contents for card part 3
----- text -----
This is a Hypercard HACK !                                                      Nate's Sysop V2.0

Use this at your own risk, and as always:

USE IT ON A COPY OF YOUR DATA !! (BACK UP YOUR DATA TOO !!)

This simply "MacBinifies" or "DeMacBinifies" a file or a whole folder of files.

Use this to prepare files for "Upload Maniac", uploading massive amounts of files to MUBBS !   Have fun!

READ THE "READ ME" FILE THAT CAME WITH THIS STACK !

What do you want for nothin' ?


                                             (Click anywhere to return)